home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 02 / msctest.c < prev    next >
C/C++ Source or Header  |  1991-02-10  |  931b  |  38 lines
  1. /* Microsoft C programs to test the ADA pragma interface */ 
  2.  
  3. #include <stdio.h>
  4.  
  5. void cflttst(x,y)
  6. double far *x, *y;
  7. {
  8.       printf(">  Beginning of cflttst.\n");
  9.       printf(">    Values passed from msctest:\n");
  10.       printf(">      x (1.23456) = %g\n", *x);
  11.       printf(">      y (9.87654) = %g\n", *y);
  12.       *x = 8.76543;
  13.       *y = 2.34567;
  14.       printf(">  End of cflttst.\n");
  15. }
  16.  
  17. int cinttst1(x)
  18. int x;
  19. {
  20.       printf(">  Beginning of cinttst1.\n");
  21.       printf(">    Value passed from msctest:\n");
  22.       printf(">      x (4) = %d\n", x);
  23.       printf(">  End of cinttst1.\n");
  24.       return x * x;
  25. }
  26.  
  27. void cinttst2(x, y, z)
  28. int x, y, *z;
  29. {
  30.       printf(">  Beginning of cinttst2.\n");
  31.       printf(">    Values passed from msctest:\n");
  32.       printf(">      x ( 5) = %d\n", x);
  33.       printf(">      y (11) = %d\n", y);
  34.       printf(">  End of cinttst2.\n");
  35.       *z = x * y;
  36. }
  37.  
  38.